
source("bandt_pompe_method.R")
source("shannon_entropy.R")
source("complexity.R")

output_file = "outputs/mobile.out"
data_path = "databases/mobile/data/"
embedding_dimensions = 4

cat("file", "D", "ndata", "entropy", "complexity\n", file=output_file)

files = list.files(data_path)

for(i in files){
  file_name = paste(data_path,i,sep="")
  data = read.table(file_name)
  d = bandt_pompe_method(data, embedding_dimensions)
  H = shannon_entropy(d$probabilities, normalized=TRUE)
  C = complexity(d$probabilities,H)
  cat(file_name,embedding_dimensions,dim(data)[1], H, C,"\n", file=output_file, append=TRUE)  
}





